home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Caml Light 0.7 / Caml Light 0.7 source / src / tools / Do < prev    next >
Text File  |  1995-06-04  |  400b  |  19 lines
  1. # Do
  2. # usage : Do [-quiet] <command that outputs what to do on stdout>
  3.  
  4. Set Echo 0
  5. Set NewWindowRect 1,2,35,500
  6. Set TempFile "{Tempfolder}Do.temp.`Date -n`"
  7. if "{1}" == "-quiet"
  8.   Echo Set Echo 0 >"{TempFile}"
  9.   shift
  10. else
  11.   Echo Set Echo 1 >"{TempFile}"
  12. end
  13. {"Parameters"} >>"{TempFile}"
  14. Open "{TempFile}"
  15. Find •:∞ "{TempFile}"
  16. "{TempFile}".§
  17. Close -n "{TempFile}"
  18. Delete -i "{Tempfolder}"Do.temp.≈
  19.